ocr: SDIMAIN.PAS JL X end; procedure Iwinradrorm.FrintbtnCllCk Sender: TUbject); - f Open a print dialog & print the currently opened file 1 var Line I - Integer; Printext : System.Text; begin if rintDlalog.Execute then begin AssigmFrn(Frintext). - Rewrite(Frintext); Printer.Canvas.ront := HyTextFile.Font; for Line := 0 to MyTextFile.Lines.Count - 1 do uriteuntrrintext, HyTextFile.Lines(Line]): System.Close(Printext); end; end; procedure nuinPadForm.PrintSetuptlick sender: TUbject); f Open the printer setup dialog 1 begin 285: 1 Insert About)Sdimain, Search/
(.png)
